my $obj = undef;

for (0 .. 1000000) {
    $obj = {a => $_};
}

print "a=$obj->{a}\n";
